Admin_About.asp 耐品图片管理系统标准版A - ASP源码程序

gusucode.com > 耐品图片管理系统标准版A > 耐品图片管理系统标准版A/Admin_About.asp
    <!--#include file="Admin_ChkPurview.asp"-->
<%
Action=Request.QueryString("Action")
if Action="Modify" then
	Set rs = Server.CreateObject("Adodb.RecordSet")
	rs.Open "Select * from NT_Config",Conn,1,3
	rs("AboutInfo") = Request.Form("Body")
	rs.Update
	rs.Close
	Set rs = Nothing
	Behind.WriteSuccessMsg "关于本站修改成功！","Admin_About.asp"
else
	call main()
end if
if FoundErr=True then
	Behind.WriteErrMsg(ErrMsg)
	Set Netout = Nothing
end if

sub main()
%>
<html>
<head>
<title>关 于 本 站</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Title="关 于 本 站"
Link="<a href='Admin_Images.asp' class='black'>管理图片</a> | <a href='Admin_User.asp' class='black'>管理用户</a> | <a href='Admin_Class.asp' class='black'>管理分类</a> | <a href='Admin_SiteConfig.asp' class='black'>系统配置</a>"
Behind.WriteHtmlHead
Behind.WriteHtmlTop Title,Link
%>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <form name="Dvform" method="post" action="?Action=Modify">
    <textarea name="Body" style="display: none;"><%=Conn.Execute("Select AboutInfo from NT_Config")(0)%></textarea>
    <tr class="title"> 
      <td height="22" colspan="2" align="center" class="tdbg1"><strong>关 于 本 站 修 改</strong></td>
    </tr>
    <tr class="tdbg"> 
      <td width="100" align="right" valign="top">&nbsp;</td>
      <td width="569"><iframe ID="Body" src="Inc/Editor/ewebeditor.asp?id=Body&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe></td>
    </tr>
    <tr class="tdbg"> 
      <td height="40" colspan="2" align="center">
	    <input type=Submit value="修 改" name=Submit>&nbsp;
       </td>
    </tr>
	</form>
</table>
<script language="javascript">
Diary = false;
MaxConlength=16240;
</script>
<%
Behind.WriteHtmlEnd
end sub
%>